home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / ADV350.ZIP / mspeak.for < prev    next >
Encoding:
Text File  |  1990-11-11  |  289 b   |  13 lines
  1.       SUBROUTINE MSPEAK(I)
  2.       
  3. C  PRINT THE I-TH "MAGIC" MESSAGE (SECTION 12 OF DATABASE).
  4.  
  5.       IMPLICIT INTEGER*4 (A-Z)
  6. C     INTEGER*2 MTEXT,ASCVAR
  7.       COMMON /MTXCOM/ MTEXT
  8.       DIMENSION MTEXT(35)
  9.       
  10.       IF(I.NE.0) CALL SPEAK(MTEXT(I))
  11.       RETURN
  12.       END
  13.